home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / guile-ii.src / guile-ii / guile-src / gls / pp.scm < prev    next >
Encoding:
Text File  |  1995-08-10  |  376 b   |  13 lines
  1. ;"pp.scm" Pretty-print
  2.  
  3. (require 'generic-write)
  4.  
  5. ; (pretty-print obj port) pretty prints 'obj' on 'port'.  The current
  6. ; output port is used if 'port' is not specified.
  7.  
  8. (define (pp:pretty-print obj . opt)
  9.   (let ((port (if (pair? opt) (car opt) (current-output-port))))
  10.     (generic-write obj #f 79 (lambda (s) (display s port) #t))))
  11.  
  12. (define pretty-print pp:pretty-print)
  13.